home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -coverdisks- / 133a / simplefind3 / install next >
Text File  |  1999-12-01  |  19KB  |  487 lines
  1.  
  2.  
  3. ; $VER: Install 1.0 (26.07.99)
  4. ; Installation-Script of SimpleFind
  5.  
  6. ; ----- German string section -----
  7.  
  8. (set #language (getenv("language")))
  9. (if( <> (strlen #language) 0)
  10. (
  11.   (set @language #language)
  12. ))
  13.  
  14. (if (= @language "deutsch")
  15. (
  16. (set #wrongversion
  17. (cat "Achtung! Es ist eine alte Version des Programmes 'Installer' "
  18.      "auf Ihrem Amiga!\n\nDie Installation benötigt mindestens Installer 43.3.\n\n"
  19.      "Bitte überprüfen Sie Ihre Konfiguration!"
  20. ))
  21.  
  22. (set #nocopyicon-text
  23. (cat "Das Programm IconCopy wurde nicht gefunden!\n"
  24.      "Es befindet sich normalerweise mit im SimpleFind3 Archiv."))
  25.  
  26. (set #welcome "Willkommen zur Installation von SimpleFind3!")
  27. (set #kind-request "Soll SimpleFind3 in ein einziges Verzeichnis installiert werden (empfohlen)?")
  28. (set #singledir-request "Wohin soll SimpleFind3 installiert werden?\n(ein Verzeichnis 'SimpleFind3' wird angelegt, wenn nötig)")
  29. (set #lang-request "Welche Sprachen sollen installiert werden?\n(Englisch ist eingebaut)");
  30. (set #guide-request "Welche Versionen der Dokumentation soll installiert werden?")
  31. (set #arexx-request "Sollen die mitgelieferten ARexx Skripte installiert werden?")
  32. (set #logos-request "Sollen die mitgelieferten Logos installiert werden?")
  33. (set #iconset-request "Welches Icon Set soll installiert werden?")
  34. (set #iconset-amwb "Alternativ MagicWB")
  35. (set #copysf-request "Kopiere SimpleFind3 Dateien")
  36. (set #copyarexx-request "Kopiere ARexx Skripte")
  37. (set #copylogos-request "Kopiere Logos")
  38. (set #standarticon-text "Installiere Standart-4-Farb-Icons...")
  39. (set #mwbicon-text "Installiere MagicWB Icons...")
  40. (set #amwbicon-text "Installiere Alternativ MagicWB Icons...")
  41. (set #glowicon-text "Installiere Glow Icons...")
  42.  
  43. (set #startup-request
  44. (cat "Um SimpleFind leichter von der Shell aus zu starten, sollte ein "
  45.      "Pfad in der User-Startup auf das SimpleFind3 Verzeichnis eingerichtet werden."
  46.      "\n\nPath \"%s\" ADD\n\nSoll das Installationsprogramm diesen Vorgang tun?"))
  47.  
  48. )
  49.  
  50. ; ----- Spanish string section -----
  51.  
  52. (if (= @language "español")
  53. (
  54.  
  55. (set #wrongversion
  56. (cat "Tiene una versión antigua del programa 'Installer' "
  57.      "en su Amiga!\n\nEste Script necesita, al menos, la versión 43.3.\n\n"
  58.      "Por favor, verifique su configuración!"
  59. ))
  60.  
  61. (set #nocopyicon-text 
  62. (cat "No puedo encontrar el programa IconCopy!\n"
  63.      " Normalmente se entrega con el archivo de SimpleFind."))
  64.  
  65. (set #welcome "Bienvenido a la instalación de SimpleFind!")
  66. (set #kind-request "Quiere que SimpleFind se instale en un Subdirectorio? (recomendado)")
  67. (set #singledir-request "Donde quiere instalar SimpleFind?\n(Se creará un directorio llamado SimpleFind, si no existe)")
  68. (set #lang-request "Qué lenguajes desea instalar?\n(Ingles por defecto)");
  69. (set #guide-request "Qué documentación quiere instalar?")
  70. (set #arexx-request "Quiere instalar los Scripts ARexx incluidos?")
  71. (set #logos-request "Quiere instalar los logotipos incluidos?")
  72. (set #iconset-request "Qué set de iconos quieres instalar?")
  73. (set #iconset-amwb "MagicWB Alternatívos")
  74. (set #tbi-request "Quiere instalar la titlebar.image?")
  75. (set #tbiold-request "Intaller ha descubierto que hay una antigua versión de titlebar.image instalada en su sistema. Quiere reemplazarla con la nueva versión?")
  76. (set #copysf-request "Copiando Ficheros de SimpleFind")
  77. (set #copyarexx-request "Copiando ARexx Scripts")
  78. (set #copylogos-request "Copiando Logos")
  79. (set #standarticon-text "Instalando set standard de iconos (4 colores)")
  80. (set #mwbicon-text "Instalando iconos MagicWB")
  81. (set #amwbicon-text "Instalando iconos alternbatívos MagicWB")
  82. (set #glowicon-text "Instalando iconos Glow")
  83.  
  84. (set #startup-request
  85. (cat "Para empezar SimpleFind facilmente desde una ventana Shell se debe especificar una ruta"
  86.      "en el fichero User-Startup.\n\nRuta \"%s\" ADD\n\nQuiere que Instaler haga"
  87.      "esto por usted?"))
  88. )
  89.  
  90. ; ----- Croatian string section -----
  91.  
  92. (if (= @language "hrvatski")
  93. (
  94. (set #wrongversion
  95. (cat "Vi imate neku staru verziju programa 'Installer' "
  96.      "na svojoj Amigi!\n\nInstalacijska procedura treba bar Installer 43.3\n\n"
  97.      "Molim vas, provjerite svoju konfiguraciju!"
  98. ))
  99.  
  100. (set #nocopyicon-text
  101. (cat "Ne mogu pronaæi program IconCopy!\n"
  102.      " Obièno je ukljuèena unutar SimpleFind Arhive."))
  103.  
  104. (set #welcome "Dobro Do¹li u SimpleFind Instalaciju!")
  105. (set #kind-request "Da li æe SimpleFind biti instaliran u jedan imenik (preporuèljivo)?")
  106. (set #singledir-request "Gdje ¾elite instalirati SimpleFind?\n(Imenik 'SimpleFind'æe se stvoriti, ako veæ ne postoji)")
  107. (set #lang-request "Koji jezik ¾elite instalirati?\n(Engleski je ugraðen)");
  108. (set #guide-request "Koju Dokumentaciju ¾elite instalirati?")
  109. (set #arexx-request "Da li ¾elite instalirati ukljuèene ARexx Skripte?")
  110. (set #logos-request "Da li æe ukljuèeni Logoi biti instalirani?")
  111. (set #iconset-request "Koji Set Ikona ¾elite instalirati?")
  112. (set #iconset-amwb "Alternativne MagicWB")
  113. (set #tbi-request "Da li æe titlebar.image biti instalirana?")
  114. (set #tbiold-request "Instaler je otkrio da postoji starija inaèica titlebar.image instalirana na va¹em sistemu. Da li da je zamjenimo s novijom inaèicom?")
  115. (set #copysf-request "Kopiram SimpleFind datoteke")
  116. (set #copyarexx-request "Kopiram ARexx Skripte")
  117. (set #copylogos-request "Kopiram Logoe")
  118. (set #standarticon-text "Instaliram Standardne-4-Bojne-Ikone...")
  119. (set #mwbicon-text "Instaliram MagicWB Ikone...")
  120. (set #amwbicon-text "Instaliram Alternativne MagicWB Ikone...")
  121. (set #glowicon-text "Instaliram Glow Ikone...")
  122.  
  123. (set #startup-request
  124. (cat "Da bi lako pokrenuli SimpleFind iz Shell-a, komanda za put bi trebala biti"
  125.      "dodana u User-Startup.\n\nPut\"%s\" ADD\n\nDa li ¾elite"
  126.      "da instaler to napravi za vas?"))
  127.  
  128. )
  129.  
  130. ; ----- English string section -----
  131.  
  132. (
  133. (set #wrongversion
  134. (cat "You have an old version of the program 'Installer' "
  135.      "on your Amiga!\n\nThe installation procedure needs at least Installer 43.3.\n\n"
  136.      "Please check your configuration!"
  137. ))
  138.  
  139. (set #nocopyicon-text 
  140. (cat "Couldn't find the program IconCopy!\n"
  141.      " Usually it is included within the SimpleFind archive."))
  142.  
  143. (set #welcome "Welcome to the the Installation of SimpleFind!")
  144. (set #kind-request "Should SimpleFind be installed in a single directory? (recommened)")
  145. (set #singledir-request "Where should SimpleFind be installed?\n(A directory called SimpleFind is created, if it doesn't exists)")
  146. (set #lang-request "Which languages should be installed?\n(english is built in)");
  147. (set #guide-request "Which documentations should be installed?")
  148. (set #arexx-request "Do you want to install the included ARexx Scripts?")
  149. (set #logos-request "Should the included logos be installed?")
  150. (set #iconset-request "Which icon set should be installed?")
  151. (set #iconset-amwb "Alternate MagicWB")
  152. (set #tbi-request "Should the titlebar.image be installed?")
  153. (set #tbiold-request "Intaller has discovered that there is an older version of the titlebar.image installed on your system. Should it replaced with a newer version?")
  154. (set #copysf-request "Copying SimpleFind files")
  155. (set #copyarexx-request "Copying ARexx Scripts")
  156. (set #copylogos-request "Copying Logos")
  157. (set #standarticon-text "Installing standart 4 color icons now...")
  158. (set #mwbicon-text "Installing MagicWB icons now...")
  159. (set #amwbicon-text "Installing alternate MagicWB icons now...")
  160. (set #glowicon-text "Installing Glow Icons...")
  161.  
  162. (set #startup-request
  163. (cat "To start SimpleFind easily from Shell a path command should be"
  164.      "added in the User-Startup.\n\nPath \"%s\" ADD\n\nDo you want that"
  165.      "the installer do this for you?"))
  166.  
  167. ))))
  168. ; ----------------------------------
  169.  
  170. (set #lang-1 "deutsch")
  171. (set #lang-2 "español")
  172. (set #lang-3 "hrvatski")
  173. (set #lang-4 "nederlands")
  174. (set #lang-5 "norsk")
  175. (set #lang-6 "svenska")
  176.  
  177. (set #guide-1 "deutsch")
  178. (set #guide-2 "english")
  179. (set #guide-3 "español")
  180. (set #guide-4 "hrvatski")
  181. (set #guide-5 "nederlands")
  182.  
  183. (procedure P_CopyCatalog #p_lang #p_destdrawer
  184.   (copyfiles
  185.        (help @copyfiles-help)
  186.        (source (tackon "SimpleFind3/Catalogs" #p_lang))
  187.        (dest (tackon #p_destdrawer #p_lang))
  188.        (all)
  189.   )
  190. )
  191.  
  192. (procedure P_CopyGuide #p_lang #p_destdrawer
  193.   (copyfiles (help @copyfiles-help)
  194.              (source (tackon "SimpleFind3/Help" #p_lang))
  195.              (dest (tackon #p_destdrawer #p_lang))
  196.              (all)
  197.   )
  198. )
  199.  
  200.  
  201. (procedure P_BuildIconLine #p_source #p_destdir #p_destname
  202.  ("iconcopy %s \"%s\" check convertnewicon dropplanar\n" #p_source (tackon #p_destdir #p_destname))
  203. )
  204.  
  205. (procedure P_SingleDrawer
  206.  (set @default-dest (askdir (prompt #singledir-request)
  207.                     (help @askdir-help)
  208.                     (default @default-dest)))
  209.  
  210.  (if (= (fileonly(@default-dest)) "SimpleFind3")
  211.   (set @default-dest (pathonly(@default-dest))))
  212.  
  213.  (set #drawer (tackon @default-dest "SimpleFind3"))
  214.  
  215.  (if (= (exists(#drawer)) 1)
  216.   (if (<> (fileonly(@default-dest)) "SimpleFind3")
  217.    (abort("A programm called SimpleFind3 has been found but no SimpleFind3 drawer"))
  218.   )
  219.  )
  220.  
  221.  (complete 1)
  222.  
  223.  (set #lang (askoptions
  224.             (prompt #lang-request)
  225.             (help @askoptions-help)
  226.             (choices (cat "\x1b[2p" #lang-1) #lang-2 #lang-3 #lang-4 #lang-5 #lang-6)))
  227.  
  228.  (complete 2)
  229.  
  230.  (set #guide (askoptions
  231.             (prompt #guide-request)
  232.             (help @askoptions-help)
  233.             (choices (cat "\x1b[2p" #guide-1) #guide-2 #guide-3 #guide-4 #guide-5)))
  234.  
  235.  (complete 3)
  236.  
  237.  (set #arexx (askbool
  238.              (prompt #arexx-request)
  239.              (help @askbool-help)
  240.              (default 1)))
  241.  
  242.  (complete 4)
  243.  
  244.  (set #logos (askbool
  245.              (prompt #logos-request)
  246.              (help @askbool-help)
  247.              (default 1)))
  248.  
  249.  (complete 5)
  250.  
  251.  (set #iconset (askchoice
  252.              (prompt #iconset-request)
  253.              (help @askchoice-help)
  254.              (choices "\x1b[2pStandart" "MagicWB" #iconset-amwb "GlowIcons" "Alternate GlowIcons")))
  255.  
  256.  (complete 7)
  257.  
  258.  (makedir #drawer)
  259.  
  260.  (complete 10)
  261.  
  262.  (copyfiles (prompt #copysf-request)
  263.           (help @copyfiles-help)
  264.           (source "SimpleFind3")
  265.                (choices "ReadMe" "SimpleFind3")
  266.           (dest #drawer)
  267.           (confirm))
  268.  
  269.  (complete 30)
  270.  
  271.  (if (<> 0 #lang)
  272.  (
  273.   (set #catdrawer (tackon #drawer "Catalogs"))
  274.   (makedir #catdrawer)
  275.  
  276.   (if (<> 0 (bitand #lang 1))  (P_CopyCatalog #lang-1 #catdrawer))
  277.   (if (<> 0 (bitand #lang 2))  (P_CopyCatalog #lang-2 #catdrawer))
  278.   (if (<> 0 (bitand #lang 4))  (P_CopyCatalog #lang-3 #catdrawer))
  279.   (if (<> 0 (bitand #lang 8))  (P_CopyCatalog #lang-4 #catdrawer))
  280.   (if (<> 0 (bitand #lang 16)) (P_CopyCatalog #lang-5 #catdrawer))
  281.   (if (<> 0 (bitand #lang 32)) (P_CopyCatalog #lang-6 #catdrawer))
  282.  ))
  283.  
  284.  (complete 40)
  285.  
  286.  (if (<> 0 #guide)
  287.  (
  288.   (set #guidedrawer (tackon #drawer "Help"))
  289.   (makedir #guidedrawer)
  290.  
  291.   (if (<> 0 (bitand #guide 1)) (P_CopyGuide #guide-1 #guidedrawer))
  292.   (if (<> 0 (bitand #guide 2)) (P_CopyGuide #guide-2 #guidedrawer))
  293.   (if (<> 0 (bitand #guide 4)) (P_CopyGuide #guide-3 #guidedrawer))
  294.   (if (<> 0 (bitand #guide 8)) (P_CopyGuide #guide-4 #guidedrawer))
  295.   (if (<> 0 (bitand #guide 16)) (P_CopyGuide #guide-5 #guidedrawer))
  296.  )
  297.  )
  298.  
  299.  (complete 55)
  300.  
  301.  
  302.  (if (<> 0 #arexx)
  303.  (
  304.   (copyfiles (prompt #copyarexx-request)
  305.              (help @copyfiles-help)
  306.              (source "SimpleFind3/ARexx")
  307.              (dest (tackon #drawer "ARexx"))
  308.              (all)
  309.              (confirm)
  310.              (infos))
  311.  )
  312.  )
  313.  
  314.  (complete 70)
  315.  
  316.  (if (<> 0 #logos)
  317.  (
  318.   (copyfiles (prompt #copylogos-request)
  319.              (help @copyfiles-help)
  320.              (source "SimpleFind3/Logos")
  321.              (dest (tackon #drawer "Logos"))
  322.              (all)
  323.              (confirm)
  324.              (infos))
  325.  )
  326.  )
  327.  
  328.  (complete 80)
  329.  
  330.  (if (= 0 #iconset)
  331.  (
  332.   (working #standarticon-text)
  333.   (textfile (dest "T:SF3_IconInstallScript")
  334.             (append
  335.      (cat "resident c/iconcopy force\n"
  336.           (P_BuildIconLine "SimpleFind3" (pathonly #drawer) "SimpleFind3")
  337.           (P_BuildIconLine "SimpleFind3/ReadMe" #drawer "ReadMe")
  338.           (P_BuildIconLine "SimpleFind3/SimpleFind3" #drawer "SimpleFind3")
  339.           (P_BuildIconLine "SimpleFind3/Catalogs" #drawer "Catalogs")
  340.           (P_BuildIconLine "SimpleFind3/Help" #drawer "Help")
  341.           (P_BuildIconLine "SimpleFind3/Logos" #drawer "Logos")
  342.           (P_BuildIconLine "SimpleFind3/ARexx" #drawer "ARexx")
  343.           (P_BuildIconLine "SimpleFind3/Help/deutsch" #drawer "Help/deutsch")
  344.           (P_BuildIconLine "SimpleFind3/Help/english" #drawer "Help/english")
  345.           (P_BuildIconLine "SimpleFind3/Help/español" #drawer "Help/español")
  346.           (P_BuildIconLine "SimpleFind3/Help/nederlands" #drawer "Help/nederlands")
  347.           (P_BuildIconLine "SimpleFind3/Help/hrvatski" #drawer "Help/hrvatski")
  348.           (P_BuildIconLine "SimpleFind3/Help/deutsch/SimpleFind3.guide" #drawer "Help/deutsch/SimpleFind3.guide")
  349.           (P_BuildIconLine "SimpleFind3/Help/deutsch/ARexx.guide" #drawer "Help/deutsch/ARexx.guide")
  350.           (P_BuildIconLine "SimpleFind3/Help/english/SimpleFind3.guide" #drawer "Help/english/SimpleFind3.guide")
  351.           (P_BuildIconLine "SimpleFind3/Help/english/ARexx.guide" #drawer "Help/english/ARexx.guide")
  352.           (P_BuildIconLine "SimpleFind3/Help/español/SimpleFind3.guide" #drawer "Help/español/SimpleFind3.guide")
  353.           (P_BuildIconLine "SimpleFind3/Help/español/ARexx.guide" #drawer "Help/español/ARexx.guide")
  354.           (P_BuildIconLine "SimpleFind3/Help/hrvatski/SimpleFind3.guide" #drawer "Help/hrvatski/SimpleFind3.guide")
  355.           (P_BuildIconLine "SimpleFind3/Help/hrvatski/ARexx.guide" #drawer "Help/hrvatski/ARexx.guide")
  356.           (P_BuildIconLine "SimpleFind3/Help/nederlands/SimpleFind3.guide" #drawer "Help/nederlands/SimpleFind3.guide")
  357.           (P_BuildIconLine "SimpleFind3/Help/nederlands/ARexx.guide" #drawer "Help/nederlands/ARexx.guide")
  358.           "resident iconcopy remove\n"
  359.      )))
  360.  )
  361.  (
  362.   (if (or (= 1 #iconset) (= 2 #iconset))
  363.   (
  364.    (working #mwbicon-text)
  365.  
  366.    (if (= 1 #iconset)
  367.    (
  368.     (set #sficon "SimpleFind3_OM")
  369.    )
  370.    (
  371.     (set #sficon "SimpleFind3_MS")
  372.    ))
  373.  
  374.    (textfile (dest "T:SF3_IconInstallScript")
  375.             (append
  376.      (cat "resident c/iconcopy force\n"
  377.           (P_BuildIconLine "SimpleFind3/Icons/MagicWB" (pathonly #drawer) "SimpleFind3")
  378.           (P_BuildIconLine "SimpleFind3/Icons/MagicWB/ReadMe" #drawer "ReadMe")
  379.           (P_BuildIconLine (tackon "SimpleFind3/Icons/MagicWB" #sficon) #drawer "SimpleFind3")
  380.           (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Catalogs" #drawer "Catalogs")
  381.           (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Help" #drawer "Help")
  382.           (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Logos" #drawer "Logos")
  383.           (P_BuildIconLine "SimpleFind3/Icons/MagicWB/ARexx" #drawer "ARexx")
  384.           (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Drawer" #drawer "Help/deutsch")
  385.           (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Drawer" #drawer "Help/english")
  386.           (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Drawer" #drawer "Help/español")
  387.           (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Drawer" #drawer "Help/nederlands")
  388.           (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Drawer" #drawer "Help/hrvatski")
  389.           (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Guide" #drawer "Help/deutsch/SimpleFind3.guide")
  390.           (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Guide" #drawer "Help/deutsch/ARexx.guide")
  391.           (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Guide" #drawer "Help/english/SimpleFind3.guide")
  392.           (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Guide" #drawer "Help/english/ARexx.guide")
  393.           (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Guide" #drawer "Help/español/SimpleFind3.guide")
  394.           (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Guide" #drawer "Help/español/ARexx.guide")
  395.           (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Guide" #drawer "Help/hrvatski/SimpleFind3.guide")
  396.           (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Guide" #drawer "Help/hrvatski/ARexx.guide")
  397.           (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Guide" #drawer "Help/nederlands/SimpleFind3.guide")
  398.           (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Guide" #drawer "Help/nederlands/ARexx.guide")
  399.  
  400.           "resident iconcopy remove\n"
  401.      )))
  402.   )
  403.   (
  404.    (working #glowicon-text)
  405.  
  406.    (if (= 3 #iconset)
  407.    (
  408.     (set #sficon "SimpleFind3_JU")
  409.     (set #sfdrw "GlowIcons")
  410.    )
  411.    (
  412.     (set #sficon "SimpleFind3_PV")
  413.     (set #sfdrw "GlowIcons/DrawerSimpleFind")
  414.    ))
  415.  
  416.  
  417.    (textfile (dest "T:SF3_IconInstallScript")
  418.             (append
  419.      (cat "resident c/iconcopy force\n"
  420.           (P_BuildIconLine (tackon "SimpleFind3/Icons" #sfdrw) (pathonly #drawer) "SimpleFind3")
  421.           (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/ReadMe" #drawer "ReadMe")
  422.           (P_BuildIconLine (tackon "SimpleFind3/Icons/GlowIcons" #sficon) #drawer "SimpleFind3")
  423.           (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/Catalogs" #drawer "Catalogs")
  424.           (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/Help" #drawer "Help")
  425.           (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/Logos" #drawer "Logos")
  426.           (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/ARexx" #drawer "ARexx")
  427.           (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/deutsch" #drawer "Help/deutsch")
  428.           (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/english" #drawer "Help/english")
  429.           (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/Drawer" #drawer "Help/español")
  430.           (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/Drawer" #drawer "Help/nederlands")
  431.           (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/Drawer" #drawer "Help/hrvatski")
  432.           (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/AmigaGuide.D" #drawer "Help/deutsch/SimpleFind3.guide")
  433.           (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/AmigaGuide.D" #drawer "Help/deutsch/ARexx.guide")
  434.           (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/AmigaGuide.GB" #drawer "Help/english/SimpleFind3.guide")
  435.           (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/AmigaGuide.GB" #drawer "Help/english/ARexx.guide")
  436.           (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/AmigaGuide.E(sp)" #drawer "Help/español/SimpleFind3.guide")
  437.           (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/AmigaGuide.E(sp)" #drawer "Help/español/ARexx.guide")
  438.           (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/AmigaGuide.HR" #drawer "Help/hrvatski/SimpleFind3.guide")
  439.           (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/AmigaGuide.HR" #drawer "Help/hrvatski/ARexx.guide")
  440.           (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/AmigaGuide.NL" #drawer "Help/nederlands/SimpleFind3.guide")
  441.           (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/AmigaGuide.NL" #drawer "Help/nederlands/ARexx.guide")
  442.           "resident iconcopy remove\n"
  443.      )))
  444.   ))
  445.  ))
  446.  
  447.  (execute "T:SF3_IconInstallScript")
  448.  (delete "T:SF3_IconInstallScript")
  449.  
  450.  (complete 95)
  451.  
  452.  (startup "SimpleFind3"
  453.     (prompt (#startup-request #drawer))
  454.     (command ("Path \"%s\" ADD" #drawer))
  455.     (help @startup-help))
  456.  
  457. )
  458.  
  459. (procedure P_Scattered
  460. )
  461.  
  462. (welcome #welcome)
  463.  
  464. (complete 0)
  465.  
  466. (if (<> (exists "c/IconCopy") 1)
  467. (
  468.  (abort #nocopyicon-text)
  469. ))
  470.  
  471. ;(set #kind (askbool (prompt #kind-request )
  472. ;                     (help @askbool-help)
  473. ;                     (default 1)
  474. ;            )
  475. ;)
  476.  
  477. ;(if (= #kind 1)
  478. ;(
  479.  (P_SingleDrawer)
  480. ;)
  481. ;(
  482. ; (P_Scattered)
  483. ;)
  484. ;)
  485.  
  486. (complete 100)
  487.